.DO External 

.LSTOH 

. Page 
>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Module: Command JDr i ver 
> 

> This module controls the way in «ji;hich commands received by 

> the Host m-& executed. It's main responsibility is to determine 

> whether a command string is protected by a check byte < the 

> original Prof i le commands are not > and then decode the command 

> and pass control over to the correct driver routine to 

> execute the command. Rli exception handling at this level is 

> controlled by the individual command routines. 
> 

> PORCEDURE Read^lD 

> PROCEDURE Read_SprTbl 

> PROCEDURE Pro-Write 

> FUNCTION WrJCoromon : BOOLERN 

> PROCEDURE Pro_WrUer 

> FUNCTION UrUer JCommon : BOOLEAN 
> 

>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO External 
.LSTON 
.Page 

> 

> Procedure: Read_!D 
> 

> This procedure is responsible for letting the host system 

> know what type of device it is talking to. 
> 

> Inputs: { none > 
> 

> Output: { none } 
> 

> Algorithm: 
?■ 

> BEGIN 

> CIrNormStat 

> Zero_RdBuf 

> lO.DeviceName := DeviceName 

> I . Dev i ceNumber := DeviceHurober 

> ID. Revision := RevisionNumber 

> ID. Capacity := Capacity 

> ID.BIockSize := BlockSize 

> Move4< Statusflrray, Status > 

> Goto Rd_Leave 

> END 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIN 

.00 Internal 

.LSTON 

.Page 

.FIN 

D_Read_ID: 

Call CIrNor-mStat 





Call 


fickJiead 


Read_ID: 


Ld 

Ld 

Call 


! r2 , » . H 1 BV 1 h . Zero_RdBuf 
lr3.«.LnUBVTE. 2ero_RdBuf 
BankJCall 




Ld 
Ld 
Ld 
Ld 
Ld 


lrC,«.HIBVTE. RBufferl 
!rD,*.LOWBVTE. RBufferl 
! rE , « . H 1 BVTE . Dev i cePar ams 
I rF , « . LOWBVTE . Dev i cePar ams 
Irl, *Dev_Parm_Leng tfi 


Read ID Ip: 


Ldc 

Lde 

Incw 

fncw 

Djnz 


!rO,§!!rE 

eilrCJrO 

llrC 

MrE 

!r1,Read ID Ip 




CIr 
CIr- 


!rO 




Ld 
Ld 
Lde 
Call 


!rE,».HIBVTE. SprCount 
! rF, « . LOWBVTE . SprCount 
!r2.e!!rE ;qet SpareCount 
Movel^ 




1 nc«j 
Lde 
Call 


? 1 rE ; po i n t to BadB 1 ock coun t 

!r2,@!lrE 

riovel_^ 




Ld 
Ld 
Ld 
Ld 
Caff 


!r2,«.HIBVTE. FmtOffset 

I r3,«. LOWBVTE. FmtOffset 

IrEJrC 

IrFJrD 

riove4_B0 




Jp 


RdJ_eave 


rioyel^3: 
riovel_3JLp: 


Ld 

Ld 

Ldei 

Djnz 

Ret 


Ir3^*3 jfflOMe 3 bytes 
lr4,Rp 
§nrC.@lr4 
!r3.Hovel_^ Ip 




.LSTOFF 

.DO 

.LSTON 


Externa 1 



■ Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

> Procedure: Read_SprTbl 
> 

> This procedure is responsible for passing the spare 

> table on to the host. Mote that this information is 

> sent in it's rem form and that it is up to the host 

> to correctly Interpret It. 
> 

> Inputs: { none ) 



? 



Output: { none } 
fillgori thm: 



; > 

;> 
;> 

:> 



BEGIN 
RBufferl := Spareflrray 
!1ove4C Statusflrray, Status > 
CIr-BsyC Slatusflrray > 

END 



.LSTOFF 

.FIN 

.DO Internal 

.LSTON 

-Page 

.FIN 



D-ReadJSprTbl 



Read JSprTb I 



Call ClrNormStat 

Ld Mrk_ I o+$fl, «D_R JSpr_Response 

Cal I flck_Read 

Ld !r2,«.HIBVTE. Spr_To_RBuf 

Ld lr3,«.L0WBVTE. Spr_To_RBuf 

Call BankJCall 

Jp RdJLeaMe 



.LSTOFF 

.DO External 

.LSTON 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 

Procedure: Pro_Write 



This procedure emulates the ProFi le Write command 

Inputs: { none ) 

Outputs: { none } 

Algorithm: 

BEGIN 
ClrNormStat 

LoadLogical Block < ProJ_ogJ3ffset > 
Get_Type< Midget > { check logical block bounds ) 
Seek-Type := Access JO ff set 

OyerLap< User_Type^ MriteJOp, I4ri te_Response, BlockNumber, > 
IF < BIkStat.SprCode = BadBlock > 
THEN 

BlockNoMe< Buf2flrray, WBuffer 1-1 > 
DataJExJHandlerC Spar eB lock > 
ELSE 
IF NOT< Wr_Common > 

THEN Data_ExJHandler< WrJCommon . Er-rorCode > 
Rd-LeaMe 
END 



>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.00 Internal 
.LSTON 





.Page 
.FIN 




Pro_i4r 1 te : 


Ld 
Call 


Wrk_l o+$fl, *Wr_Response 
Pro_Wr_SetUp 




Jr 


BlkStat,«B_Block ; IF BadBlock 
Z,ProWr_1 


Pro_Wr_BB: 


Caii 
Jr 


Wr_BBlock 
Wr_Leave 


Proi4r_1 : 
ProJJr_Exit: 


Call 
Jr 


WrJCominon 
Nz,Wr_Leave 




Call 


Data_Ex_Handler 


NrJLeave : 


Jp 
.Pngp 


Rd_Leave 


ProJ4rJSetUp: 


Call 


ClrNormStat 




Call 


Get_HrJData 




Ld 
Call 


!rO,«Pro_Log Offset 
Ld-LgclBlk ; Log i ca 1 B 1 ockNumbei 




Ld 

Ld 

Ld 

Call 


!r8,«Widget 

!r2,«.HIBYIb. 6et_Type 
lr3,».L0MBVTE. Get_Type 
BankJCall ; check block bounds 




Ld 
Ld 
Or 


Seek_Type, *^ccessJOf f set 
Data_Type, «User_Type 
Disks tat. «Ur Op 




Ld 

Ld 

Call 


}r2,«.HIBVTE. OverLap 
ir3,».L0MBV{t. OverLap 
BankJ:all 




Tffi 
Jr 


DiskStat,«0ff5et On 
N2,PJ4JS_End 




Call 


ReSeek 


PJ4_S Fnd: 


Ret 






Mr_BBfock: 


Ld 

Ld 

Call 


!r2,«.HIBVTE. WrBuf_ToJBuf2 
!r3,«.L0yBS'TE. UrBuf_ToJBuf2 
BankJCall 




Ld 
Call 
Ret 


1 rO, *Error+Ex_SprB 1 ock 
Da ta_Ex_Hand 1 er 




.LSTOFF 
.DO 
LSTON 
.Page 


External 



> 

> Function: Wr-JCommon 
> 

> This function handles all of the write specific details 

> for all of Uidget's write commands. 
> 

> Inputs: { none } 
> 

> Outputs: 

> WrJComroon : BOOLEAN { zero flag is set if data exception } 

> ErrorCode. Error : BOOLEflH { IrO/Brt 7 ) 

> ErrorCode. Type : 7 BITS { !rO/Bits 5:0 } 
> 

> Local Uarlables: 

> Retry : BVTE { Ir5 } 

> ErrorCode : BVTE { !r4 > 
> 

> Algorithm: 
> 

> BEGIN 

> ErrorCode . Error := False 

> IF NOT< MriteBlock ) 

> THEN 

> ErrorCode . Error := True 

> ErrorCode . Type := Undetermined 

> IF Recovery 

> THEN 

> IF ServoError OR NoHeaderFound 

> THEN 

> ErrorCode . Error := False 

> Retry := 4 

> REPEAT 

> THEN 

> ServoRecovery 

> Retry := Retry - 1 

> UNTIL NOT< Retry = ) OR WriteBlock 

> IF HOT< WriteBlock > 

> THEN 

> ErrorCode . Error := True 

> ErrorCode . Type := Undetermined 

> IF ServoError 

> THEN 

> SetStatus( ByteO, Status-JServoError > 

> Abort 

> IF NoHeaderFound 

> THEN 

> NoveBlock( Buffer2, UriteBuffer ) 

> ErrorCode . Type := SpareBlock 

> Mrite-Comroon := NOT< ErrorCode . Error ) 

> END 
:> 

;>>>>>>:>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
.LSTOFF 
.FIN 

.DO Internal 
.LSTON 
.Page 
.FIN 

UrJCommon: 

Ld Scr Reg2 , « . H I BVTE . MB I kFence ; check for hos t over f I « 
Ld ScrReg3,».L0WBVTE. i« I kFence 



Mr JCmn jQk : 



l4r_£mn_Lp : 



Wr JCmn JSerMO : 



l^'JCmn-Hdr 



lA"_Cirin_End: 



Ld I r2,*. HI BYTE. ChkJ^assMord 

Ld !r3,«.L0UBYTE. Chk_PassMord 

Caii BcinkJDall 

Jr Nz.WrJCmnJOk 

Ld \rO,*0 ;byte zero 

Ld !r1,*WrBufJ0R ; buffer over run 

Can SetStatus 

Call Abort 

Push ! r4 

Or Disks tat, «UrjOp 

CIr !r4 

Call MriteBlock 

Jr Nz, Ur jCmn_End 

Ld !r2,«.HIBVTE. WrBuf_To_Buf2 

Ld !r3,«.L0WBVTE. WrBuf_To_Buf2 

Calf BankJCafI 

Ld !r4^*Error ;ErrorCode := Error ^ Undetermined 

Tm Excpt-Stat . «Recovery ; IF Recovery THEN . . . 

Jr Z,Wr_Cmn_End 

Ld !r5,«4 ; Retry := 4 

Ld lr2,».HIBVTE. SruoRcury 

Ld !r3,«.L0MBVTE. SrvoRcvry 

Call BankJCail 

Ld !r2,«.HIBVTE. Buf2_To_MrBuf 

Ld !r3,«.L0WBVTE. Buf2_ToJ4rBuf 

Call BankJC:all 

Call W-iteBlock 

CIr !r4 

Jr Nz,UrJCmn_End 

D j nz ! r5 , l4r_jCffin_Lp 

Ld !r4,*Error 

Tffi WrS ta t , »WrSr yoErr 

Jr Z,UrJCian_Hdr 

CIr !rO ;Byte 

Ld lr1,«Stat_JSrMo 

Call SetStatus 

Call Abort 

Tifi yrStat,»WrHoHdrFnd 

Jr Z,l4rJCmn_End 

Ld ! r4 ^ »Err or+Ex_Hdr Spr 

Ld IrO, !r4 

Pop !r4 ; retrieve register from stack 

Tcm ! rO, *WrErrcM^ 

Jp Bank_Bet 

.LSTOFF 

.DO External 



.LSTOM 

.Page 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
> 
> Procedure : Pro_UrUer 



This procedure emu! ales the ProFile Urite/Uerify 
command . 

Inputs: { none } 

Outputs: { none > 

ft I gor i thm : 

BEGIN 
CIrMonriStat 

LoadLogiccilBiock< Pro_Log_JOffset > 
Get_Type< Widget ) { check logical block bounds } 
Seek_Type := flceessJOffset 

Over Lap < User_Type^ MriteJQp^ UrUer_Response, BlockNumber^ > 
IF < BlkStat.SprCode = BadBlock > 
THEN 

BlockNoyet: Buf2flrray, l4Buffer1-1 > 

Data_Ex_Handler< SpareBlock ) 



IF NOT< MrUerJCommon > 

THEN Oata_ExJ^andler< MrUerJConnmon . Error Code > 
Rd-Leaue 
END 



> 
> 
> 

> 
> 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 

.LSTOFF 

.FIN 

.DO Internal 

.LSTON 
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-FIN 



Sys_i4rU : 

Fro JWrUer : 
ProJ4rU_2: 



Ld Mrk_lo+$fl,«Sys_WrUer_Resp 

Jr Pro_WrUer_2 



Ld I4rk_ I o+$fi, «UrUer_Response 

Call Pro_Wr_JSetUp 

Ld tr2.«.HIBVTE. WrBuf«To_Buf2 

Ld !r3,«.L0MBVTE. WrBuf_ToJBuf2 

Call BcinkJCall 



ProMrU_1 



WrUer_Leave : 



Tffl BlkStcit,«B^lock ; IF BadBlock 

Jr Z^ProWrU_1 

Call Mr_BBIock 

Jr l4rUerJLeaye 

Ca! I MrUer_Common 

Jr Nz,l4rUer_Leave 

Call Data_Ex_Hand!sr 

Jp Rd-leaye 



.LSTOFF 

.DO External 
.LSTOM 
. Page 
;>>>>>>>>>>>>>>>> > > >>>>>>>>>>>>>>>> 

;> Function: WrUerJCommon 
; > 

;> This function has the responsibility of making certain < within 

;> reasonable limits ) that when a block is written to the disk that 

;> it i:LQi[\ also be read back. WriteUerify comes in two flavors: 

;> Conservative and NotConservative. The attempt here is to make 

;> the WriteUerify routine attractive to end users as well ixs provide 

;> a means for the controller to have a high degree of confidence 

;> in writing some of it's more important blocks. 

; > 

;> Inputs: { none } 

;^ 

;> Outputs: 

;> UrUer JCommon : BOOLEflH { zero flag set if operation failed ) 

;> 

; > fl I gor i thm : 

;> BEGIH 

;> IF Wr JCommon 

; > THEN 

;> Disks tat. WrJOp := False 

; > RdJCommon 

; > I F < RdJCommon . Error Type = Ex_HdrBad ) 

; > THEN RdJCommon . ErrorType : = Ex JidrSpr 

; > ELSE 

j> IF < RdJCommon . ErrorType = Ex_BadBlock .> 

;> THEN RdJCommon . ErrorType := ExJSprBlock 

:> END 



;>>>>>>>>.>>.^> 


.LSTOFF 
.FIN 


>>>>>>>>>>>> 




.DO 


Internal 




. LSTON 






.Page 






.FIN 




WrUer JCommon : 








Call 


ExtPush-Uector 




Or 


Disks tat, «MrJOp 




Call 


I4r JCommon 




Jr 


2,MrUerJ^et 




Rnd 


Disks tat, »$FF-WrJOp 




Call 


ReadjCommon 




Jr 


Nz,MrUer_fiet 




Ld 


IrlJrO 




find 


!r1,*$?F ;mask off error bit 




Cp 


!r1,«Ex_HdrBad 




Ld 


! r2, »Error+Ex_HdrSpr 




Jr 


Z^MrUjChqEx 



Cp !rt,«Ex_BadBlock 





Ld 
Jr 


! r2, *Error+Ex-JSprB I ock 
Nz,WrUer_Ret 


WrU JChg Fx: 


Ld 


Ir0jr2 


WrUer_Ret: 


Push 

Call 

Pop 

Tern 

•Jp 


ExtPop.Uector 

!rO 

!rO,*Error ;set error condition 

Bank_Ret 



LSTOFF 



